inherited frmChargeDogovor: TfrmChargeDogovor
  Left = 528
  Top = 309
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1076#1086#1075#1086#1074#1086#1088#1091
  ClientHeight = 310
  ClientWidth = 428
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 283
    Width = 428
    TabOrder = 3
    inherited BitBtn1: TBitBtn
      Left = 218
      Top = 2
      Font.Height = -13
      ParentFont = False
      TabOrder = 2
    end
    inherited BitBtn2: TBitBtn
      Left = 323
      Top = 2
      Font.Height = -13
      ParentFont = False
      TabOrder = 3
    end
    object BitBtn3: TBitBtn
      Left = 10
      Top = 2
      Width = 97
      Height = 25
      Action = aMeters
      Caption = #1057#1095#1077#1090#1095#1080#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object BitBtn4: TBitBtn
      Left = 114
      Top = 2
      Width = 97
      Height = 25
      Action = aCalc
      Caption = #1056#1072#1089#1095#1077#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD2DF
        F8F4F4F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFC9C9CCDADADD0392FB069CFE969CBDFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F12230A1000DEA9698B22CB7
        FA56FFFF26B1FEF3F3F5F8F5F585724D8C8B65988B69988B68928A668D8A6494
        91622C2C810004FF0002FF605F6A3385F36EB4F75BAEFCCFDEF8F6E7E466E4A4
        71FFC491FFCD90FFCE7EFFC772FFC376FFC00000C00D15FF1319F836758E58B2
        A741857DBFBEC1FFFFFFF5E7E46ADB9E74FABF96FBC895FBC882F8C176F8BD7C
        FFBD0C11B83F46FF4C52FF4146EE3639F01E27E9B2B2BAFFFFFFF5E7E470DEA5
        7AFAC19BFBCB9AFBCB87F8C37BF7BF80FFC13F669E6061FB8588FF888BFF7A7E
        FF2326A2DCD9D9FFFFFFF6E8E62FAD5288FFD0A1FBCFA0FBCE8DFAC984FCC981
        F9C27EFFC13C619C4B50BD5C60C8374AA874A982DBD7D7FFFFFFF4E9E6C19054
        0FC25BB3FFE1A8FDD671F0B52EB14D84FECC85F9C687FFC697F8C996ECC7A7FF
        D677C98EDAD7D7FFFFFFF2E9E6F99A71CCA5662DC66BA0FBD2369E34FFAA7C34
        AF4C8AFED187F8C79BFBCFABFDD5A5FFD678C68EDAD7D7FFFFFFF2E9E6EF9D72
        FFB58DBFA8693B9F39FFB28EFFB38AF2AD7E23B04990FFD5A4FDD8B3FEDDA9FF
        DA7AC68FDAD7D7FFFFFFF2E8E5EFAF8EFFC8AAFFC7ABFFC7ADFFC7A9FFC6A9FF
        C7ABEEBF9A14B44A7BD49629A83FBDFFE97DC692DAD7D7FFFFFFF2E8E4EFC1AC
        FFDCCAFFDAC7FFDAC7FFDAC7FFDAC7FFDAC7FFDCCBE0D1B0A2C087FED8C54BB5
        5B81CA9ADAD7D7FFFFFFF2E6E3F3DBD0FFFAF4FFF8F2FFF8F2FFF8F2FFF8F2FF
        F8F2FFF8F2FFF9F4FFFAF6FFF9F5F5F5E85C9643D9D6D6FFFFFFFBFAF9C99B8B
        D3AB9CD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD6AC
        9ED3A397FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
  end
  inherited ToolBar1: TToolBar
    Top = 144
    Width = 428
    Height = 0
    TabOrder = 0
  end
  object GroupBox1: TGroupBox [2]
    Left = 0
    Top = 0
    Width = 428
    Height = 69
    Align = alTop
    Caption = ' '#1044#1086#1075#1086#1074#1086#1088' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object DBText2: TDBText
      Left = 62
      Top = 42
      Width = 361
      Height = 17
      DataField = 'SERVICE_NAME'
      DataSource = dscServName
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 11
      Top = 42
      Width = 46
      Height = 16
      Alignment = taRightJustify
      Caption = #1059#1089#1083#1091#1075#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 17
      Top = 18
      Width = 40
      Height = 16
      Alignment = taRightJustify
      Caption = #1040#1076#1088#1077#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 62
      Top = 18
      Width = 361
      Height = 17
      DataField = 'ADDRESS'
      DataSource = dscServName
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 69
    Width = 428
    Height = 75
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object GroupBox2: TGroupBox
      Left = 251
      Top = 0
      Width = 177
      Height = 75
      Align = alRight
      Caption = ' '#1044#1072#1090#1072' '#1087#1088#1086#1074#1077#1076#1077#1085#1080#1103' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object dbtChargeDate: TDBDateTimeEditEh
        Left = 24
        Top = 28
        Width = 127
        Height = 22
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Kind = dtkDateEh
        ParentFont = False
        TabOrder = 0
        Visible = True
      end
    end
    object pan22: TGroupBox
      Left = 0
      Top = 0
      Width = 251
      Height = 75
      Align = alClient
      Caption = ' '#1055#1077#1088#1080#1086#1076' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label13: TLabel
        Left = 8
        Top = 22
        Width = 50
        Height = 16
        Alignment = taRightJustify
        Caption = #1053#1072#1095#1072#1083#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 18
        Top = 48
        Width = 40
        Height = 16
        Alignment = taRightJustify
        Caption = #1050#1086#1085#1077#1094
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object dblcBMonth: TDBComboBoxEh
        Left = 64
        Top = 20
        Width = 83
        Height = 22
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Items.Strings = (
          #1103#1085#1074#1072#1088#1100
          #1092#1077#1074#1088#1072#1083#1100
          #1084#1072#1088#1090
          #1072#1087#1088#1077#1083#1100
          #1084#1072#1081
          #1080#1102#1085#1100
          #1080#1102#1083#1100
          #1072#1074#1075#1091#1089#1090
          #1089#1077#1085#1090#1103#1073#1088#1100
          #1086#1082#1090#1103#1073#1088#1100
          #1085#1086#1103#1073#1088#1100
          #1076#1077#1082#1072#1073#1088#1100)
        KeyItems.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
        ParentFont = False
        TabOrder = 0
        Visible = True
      end
      object dbBYear: TDBNumberEditEh
        Left = 150
        Top = 20
        Width = 73
        Height = 22
        AlwaysShowBorder = True
        EditButtons = <
          item
            Style = ebsMinusEh
            Width = 16
            OnClick = dbBYearEditButtons0Click
          end
          item
            Style = ebsPlusEh
            Width = 16
            OnClick = dbBYearEditButtons1Click
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        MaxValue = 2010.000000000000000000
        MinValue = 2005.000000000000000000
        ParentFont = False
        TabOrder = 1
        Value = 2008.000000000000000000
        Visible = True
      end
      object dblcEMonth: TDBComboBoxEh
        Left = 64
        Top = 46
        Width = 83
        Height = 22
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Items.Strings = (
          #1103#1085#1074#1072#1088#1100
          #1092#1077#1074#1088#1072#1083#1100
          #1084#1072#1088#1090
          #1072#1087#1088#1077#1083#1100
          #1084#1072#1081
          #1080#1102#1085#1100
          #1080#1102#1083#1100
          #1072#1074#1075#1091#1089#1090
          #1089#1077#1085#1090#1103#1073#1088#1100
          #1086#1082#1090#1103#1073#1088#1100
          #1085#1086#1103#1073#1088#1100
          #1076#1077#1082#1072#1073#1088#1100)
        KeyItems.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12'
          '')
        ParentFont = False
        TabOrder = 2
        Visible = True
      end
      object dbEYear: TDBNumberEditEh
        Left = 150
        Top = 46
        Width = 73
        Height = 22
        AlwaysShowBorder = True
        EditButtons = <
          item
            Style = ebsMinusEh
            Width = 16
            OnClick = dbEYearEditButtons0Click
          end
          item
            Style = ebsPlusEh
            Width = 16
            OnClick = dbEYearEditButtons1Click
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        MaxValue = 2010.000000000000000000
        MinValue = 2005.000000000000000000
        ParentFont = False
        TabOrder = 3
        Value = 2008.000000000000000000
        Visible = True
      end
    end
  end
  object GroupBox3: TGroupBox [4]
    Left = 0
    Top = 144
    Width = 428
    Height = 139
    Align = alClient
    Caption = ' '#1053#1072#1095#1080#1089#1083#1077#1085#1080#1077' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    object Label3: TLabel
      Left = 136
      Top = 18
      Width = 69
      Height = 16
      Alignment = taRightJustify
      Caption = #1041#1072#1079#1086#1074#1086#1077':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 148
      Top = 42
      Width = 57
      Height = 16
      Alignment = taRightJustify
      Caption = #1051#1100#1075#1086#1090#1099':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object lbItogo: TLabel
      Left = 149
      Top = 114
      Width = 56
      Height = 16
      Alignment = taRightJustify
      Caption = #1048#1058#1054#1043#1054':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 115
      Top = 66
      Width = 90
      Height = 16
      Alignment = taRightJustify
      Caption = #1055#1088#1080#1073#1099#1074#1096#1080#1077':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 210
      Top = 18
      Width = 65
      Height = 17
      DataField = 'S_BASE'
      DataSource = dscGenCharge
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHotLight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 210
      Top = 42
      Width = 65
      Height = 17
      DataField = 'S_EX'
      DataSource = dscGenCharge
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHotLight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 210
      Top = 66
      Width = 65
      Height = 17
      DataField = 'S_IN'
      DataSource = dscGenCharge
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHotLight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 210
      Top = 90
      Width = 65
      Height = 17
      DataField = 'S_OUT'
      DataSource = dscGenCharge
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHotLight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 134
      Top = 90
      Width = 71
      Height = 16
      Alignment = taRightJustify
      Caption = #1059#1073#1099#1074#1096#1080#1077':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DBText7: TDBText
      Left = 210
      Top = 114
      Width = 65
      Height = 17
      DataField = 'SUMM'
      DataSource = dscGenCharge
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHotLight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  inherited ActionList1: TActionList
    Left = 334
    Top = 170
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aMeters: TAction
      Caption = #1057#1095#1077#1090#1095#1080#1082#1080
      OnExecute = aMetersExecute
    end
    object aCalc: TAction
      Caption = #1056#1072#1089#1095#1077#1090
      OnExecute = aCalcExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'frmChargeDogovor'
  end
  object dscServName: TDataSource
    DataSet = dsServName
    Left = 369
    Top = 20
  end
  object dsGenCharge: TpFIBDataSet
    SelectSQL.Strings = (
      'select s_base,'
      '    s_ex,'
      '    s_out,'
      '    s_in,'
      '    summ'
      
        ' from PROC_GENCHARGE_NEW(:abonent_id, null, :group_id, :PBDATE, ' +
        ':PEDATE,'
      
        ':DOGOVOR_ID, 1, 1, :DOCDATE, null, null, null,null, 0, null, 1, ' +
        '1)')
    Transaction = ChargeTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 309
    Top = 118
    object dsGenChargeS_BASE: TFIBBCDField
      FieldName = 'S_BASE'
      Size = 2
      RoundByScale = True
    end
    object dsGenChargeS_EX: TFIBBCDField
      FieldName = 'S_EX'
      Size = 2
      RoundByScale = True
    end
    object dsGenChargeS_OUT: TFIBBCDField
      FieldName = 'S_OUT'
      Size = 2
      RoundByScale = True
    end
    object dsGenChargeS_IN: TFIBBCDField
      FieldName = 'S_IN'
      Size = 2
      RoundByScale = True
    end
    object dsGenChargeSUMM: TFIBBCDField
      FieldName = 'SUMM'
      Size = 2
      RoundByScale = True
    end
  end
  object dscGenCharge: TDataSource
    DataSet = dsGenCharge
    Left = 375
    Top = 118
  end
  object dsServName: TpFIBDataSet
    UpdateRecordTypes = [cusUnmodified]
    SelectSQL.Strings = (
      
        'select s.name as service_name, a.address, d.abonent_id, s.group_' +
        'id,'
      '  (select rmeter_exist '
      
        '    from proc_dogovor_meter_exist (d.id, current_date, null, nul' +
        'l)) as meter_exist'
      'from dogovors d, services s, v_abons a'
      'where d.id = :dogovor_id'
      '  and s.id = d.service_id'
      '  and a.id = d.abonent_id')
    AutoCalcFields = False
    AllowedUpdateKinds = []
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 310
    Top = 22
    object dsServNameSERVICE_NAME: TFIBStringField
      FieldName = 'SERVICE_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsServNameADDRESS: TFIBStringField
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
    object dsServNameMETER_EXIST: TFIBSmallIntField
      FieldName = 'METER_EXIST'
    end
    object dsServNameABONENT_ID: TFIBIntegerField
      FieldName = 'ABONENT_ID'
    end
    object dsServNameGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 264
    Top = 24
  end
  object ChargeTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 272
    Top = 118
  end
end
